home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
VISUALBA
/
VBUTIL.ZIP
/
FVIEW3.FRM
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1993-03-04
|
9KB
|
274 lines
Form1
File Viewer (version 3)
Form1%
FilenameBox
FindBox
DosBox
TextBox
MS Serif
FilenameLbl
Filename Input
FindLbl
Find Input
DosLbl
DOS/Win Input
FileCom
&File
ReadCom
ToggleReadCom
Toggle Read
FindFileCom
Find File
AddFileCom
Add File
DeleteFileCom
Delete File
QuickFilename
QuitCom
SearchCom
&Search
FindCom
CommandCom
&Command
DosCom
DOS Command
WinCom
Windows Command
ToggleOSCom
Toggle OS
FontCom
SystemCom
System
CourierCom
Courier
TerminalCom
Terminal
BoldCom
ItalicCom
Italic
StrikethruCom
Strikethru
UnderlineCom
Underline
FontSizeCom
Font Size
Size9Com
$ Size10Com
% Size12Com
& Size14Com
' Size18Com
QuitBtn_Click
Form_Click
ReadBtn_Click
FilenameBox
LineInputM
TextBox%
TextLst_ClickG
TextLstn
ListCount!
ListSize
FindBtn_ClickO
CurrentLine
Text1_Changev
FindBox_Change
Find|
FindBox
ListIndex
Foundr
FilenameBox_Change
@ Form_Load
MultiLine
ScrollBars
SelStart
SelLength
CurrentIndexr
CurIndex
TextBox_Change
Search
SelText
BadFile
EndOfSub[
Command1_Click
DosBtn_Click^
DosBox
Dummy7
WinBox_Click
DosBox_Changee
Label1_Clicku
FindFileBtn_Click
DosLbl_Click
Filename(
subdirectory
ToggleBtn_Click~
ReadBtn
Enabled
False
TrueQ
ShowShellsBtn_Click
Visible
WinBtn_Click
DosBtn
WinBtn
DosLblh
Label3_Click
FilenameLbl_Click
FindLbl_Click
ShowOSBtn_Click
QuitCom_Click
DosCom_Click
FileCom_Click$
FindCom_ClickI
ToggleReadCom_Clickv
ReadCom
ReadCom_Click
FindFileCom_Click
WinCom_Click2
ToggleOSCom_Click
WinComB
DosCom
BadFile2
EndOfSub2
FinCom
Checked
FindCom1
FindLbl_Change
CommandCom_ClickH
AddFileCom_Click
TheFilename
NumFiles
QuickFilename
QuickFilename_Click
Index#
DeleteFileCom_Click
Caption
Form_LinkClose
Form_LinkError
LinkErr
Form_LinkExecute?
CmdStr
CancelS
Form_LinkOpen
config
ModernComb
FontNameT
CourierCom
ScriptCom
FontBold
BoldComQ
FontItealic
ItalicCom
FontStrikethru
StrikethruCom
FontUnderlinev
UnderlineCom
Size9Com
FontSize
Size10Com
Size12Com
Size14Com
Size18Com4
FontItalic
WindowState
ModernCom_Clickg
ClearFontComs
ClearFontCom2
ClearAppearComg
ClearSizeCom
BoldCom_ClickG
CourierCom_Click
ClearFonCom
ItalicCom_Click
Size10Com_Click
Size12Com_Click
Size14Com_Click
Size18Com_Click
Size9Com_Click'
StrikethruCom_Click
UnderlineCom_Click
ScriptCom_Click
NormalCom
NormalCom_Click
SystemCom
SystemCom_Click
TerminalCom
TerminalCom_Click
TermnalCom
Form1
AddFileCom_Click
Enter full file name:
increment the menu count
load a new menu command
BoldCom_Click
ClearFontCom
ClearSizeCom
CourierCom_Click
Courier
DeleteFileCom_Click
Enter number to delete:
The number is out-of-range
Input Error
DosCom_Click
invoke the DOSBAT batch file
dosbat.bat
FindBox_Change
FindCom_Click
update the index to the current character
store the text of the Find box in the variable Find
is variable Find empty?
nothing to find
locate the index of the next substring Find in thed
text boxh
found a match?
Yes! Display the matching text as selected text
No! Clear any selected text
FindFileCom_Click
invoke the DOS dir command with the /se
subdirectory option and the /p paginated
output option
dosbat.bat dir
/s/p
FindLbl_Change
Form_Load
get the font name
System
Courier
Terminal
Courier
get the fond appearance
get the font size
ItalicCom_Click
QuickFilename_Click
QuitCom_Click
ReadCom_Click
obtain filename from the filename text box
if filename is an empty string, exitx
set error-handler
open the file
clear variable to reuse it
loop to read the text lines from the ASCII file
append a new line
copy F into text box
close the filep
exit procedurep
* Error-handler
Cannot open file
File I/O Error
Size10Com_Click
Size12Com_Click
Size14Com_Click
Size18Com_Click
Size9Com_Click
StrikethruCom_Click
SystemCom_Click
System
TerminalCom_Click
Terminal
ToggleOSCom_Click
toggle the Visible property of the DosBox text box,
the DosBtn button, the WinBtn button, and the DosLbl
label
ToggleReadCom_Click
UnderlineCom_Click
WinCom_Click
invoke a Windows application